home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / estenw_1 / ingame.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-25  |  21.7 KB  |  759 lines
  1. VERSION 5.00
  2. Begin VB.Form InGame 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Estenwood - In Game"
  5.    ClientHeight    =   9000
  6.    ClientLeft      =   -165
  7.    ClientTop       =   -165
  8.    ClientWidth     =   12000
  9.    LinkTopic       =   "Form4"
  10.    LockControls    =   -1  'True
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    Picture         =   "InGame.frx":0000
  15.    ScaleHeight     =   9000
  16.    ScaleWidth      =   12000
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    WindowState     =   2  'Maximized
  20.    Begin VB.Frame Frame1 
  21.       Height          =   840
  22.       Left            =   3870
  23.       TabIndex        =   6
  24.       Top             =   270
  25.       Visible         =   0   'False
  26.       Width           =   1320
  27.       Begin VB.OptionButton Option2 
  28.          Caption         =   "OFF"
  29.          Height          =   255
  30.          Left            =   120
  31.          TabIndex        =   8
  32.          Top             =   510
  33.          Width           =   1020
  34.       End
  35.       Begin VB.OptionButton Option1 
  36.          Caption         =   "ON"
  37.          Height          =   225
  38.          Left            =   135
  39.          TabIndex        =   7
  40.          Top             =   165
  41.          Value           =   -1  'True
  42.          Width           =   1125
  43.       End
  44.    End
  45.    Begin VB.Timer Timer1 
  46.       Interval        =   11000
  47.       Left            =   525
  48.       Top             =   4125
  49.    End
  50.    Begin VB.CommandButton Command5 
  51.       Caption         =   "E&xit to main"
  52.       Height          =   255
  53.       Left            =   5205
  54.       TabIndex        =   5
  55.       Top             =   0
  56.       Visible         =   0   'False
  57.       Width           =   1335
  58.    End
  59.    Begin VB.CommandButton Command4 
  60.       Caption         =   "Sou&nds >"
  61.       Height          =   255
  62.       Left            =   3870
  63.       TabIndex        =   4
  64.       Top             =   0
  65.       Visible         =   0   'False
  66.       Width           =   1335
  67.    End
  68.    Begin VB.CommandButton Command3 
  69.       Caption         =   "&Restore game"
  70.       Enabled         =   0   'False
  71.       Height          =   255
  72.       Left            =   2535
  73.       TabIndex        =   3
  74.       Top             =   0
  75.       Visible         =   0   'False
  76.       Width           =   1335
  77.    End
  78.    Begin VB.CommandButton Command2 
  79.       Caption         =   "&Save game"
  80.       Height          =   255
  81.       Left            =   1200
  82.       TabIndex        =   2
  83.       Top             =   0
  84.       Visible         =   0   'False
  85.       Width           =   1335
  86.    End
  87.    Begin VB.CommandButton Command1 
  88.       Caption         =   "&New game"
  89.       Enabled         =   0   'False
  90.       Height          =   255
  91.       Left            =   -15
  92.       TabIndex        =   1
  93.       Top             =   0
  94.       Visible         =   0   'False
  95.       Width           =   1215
  96.    End
  97.    Begin VB.ListBox List1 
  98.       BackColor       =   &H00FFFFFF&
  99.       BeginProperty Font 
  100.          Name            =   "System"
  101.          Size            =   9.75
  102.          Charset         =   238
  103.          Weight          =   700
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       ForeColor       =   &H00008000&
  109.       Height          =   1740
  110.       Left            =   720
  111.       TabIndex        =   0
  112.       Top             =   6360
  113.       Width           =   6975
  114.    End
  115.    Begin VB.Image View 
  116.       Height          =   2310
  117.       Left            =   1305
  118.       Stretch         =   -1  'True
  119.       Top             =   1080
  120.       Width           =   5910
  121.    End
  122.    Begin VB.Image RedPoint 
  123.       Height          =   330
  124.       Left            =   270
  125.       Picture         =   "InGame.frx":75742
  126.       Top             =   150
  127.       Width           =   345
  128.    End
  129.    Begin VB.Image RelianStats 
  130.       Height          =   4575
  131.       Left            =   8160
  132.       Top             =   3600
  133.       Width           =   3015
  134.    End
  135.    Begin VB.Image RelianFace 
  136.       Height          =   2415
  137.       Left            =   8160
  138.       Top             =   1080
  139.       Width           =   3015
  140.    End
  141.    Begin VB.Shape Shape2 
  142.       Height          =   7335
  143.       Left            =   8040
  144.       Top             =   960
  145.       Width           =   3255
  146.    End
  147.    Begin VB.Shape Shape1 
  148.       Height          =   2055
  149.       Left            =   600
  150.       Top             =   6240
  151.       Width           =   7215
  152.    End
  153.    Begin VB.Line Line8 
  154.       BorderColor     =   &H00808080&
  155.       X1              =   2880
  156.       X2              =   2880
  157.       Y1              =   5160
  158.       Y2              =   4080
  159.    End
  160.    Begin VB.Line Line7 
  161.       BorderColor     =   &H00808080&
  162.       X1              =   5640
  163.       X2              =   5640
  164.       Y1              =   5160
  165.       Y2              =   4080
  166.    End
  167.    Begin VB.Line Line6 
  168.       BorderColor     =   &H00808080&
  169.       X1              =   2880
  170.       X2              =   5640
  171.       Y1              =   4080
  172.       Y2              =   4080
  173.    End
  174.    Begin VB.Line Line5 
  175.       BorderColor     =   &H00808080&
  176.       X1              =   2880
  177.       X2              =   5640
  178.       Y1              =   5160
  179.       Y2              =   5160
  180.    End
  181.    Begin VB.Line Line4 
  182.       BorderColor     =   &H00808080&
  183.       X1              =   7305
  184.       X2              =   1185
  185.       Y1              =   975
  186.       Y2              =   975
  187.    End
  188.    Begin VB.Line Line3 
  189.       BorderColor     =   &H00808080&
  190.       X1              =   1200
  191.       X2              =   1200
  192.       Y1              =   3480
  193.       Y2              =   960
  194.    End
  195.    Begin VB.Line Line2 
  196.       BorderColor     =   &H00808080&
  197.       X1              =   7320
  198.       X2              =   7320
  199.       Y1              =   3480
  200.       Y2              =   960
  201.    End
  202.    Begin VB.Line Line1 
  203.       BorderColor     =   &H00808080&
  204.       X1              =   1200
  205.       X2              =   7320
  206.       Y1              =   3480
  207.       Y2              =   3480
  208.    End
  209.    Begin VB.Image ArrowRight 
  210.       Height          =   450
  211.       Left            =   5040
  212.       Picture         =   "InGame.frx":75D94
  213.       Top             =   4560
  214.       Width           =   420
  215.    End
  216.    Begin VB.Image ArrowLeft 
  217.       Height          =   450
  218.       Left            =   3000
  219.       Picture         =   "InGame.frx":7651E
  220.       Top             =   4560
  221.       Width           =   420
  222.    End
  223.    Begin VB.Image ArrowUp 
  224.       Height          =   420
  225.       Left            =   3960
  226.       Picture         =   "InGame.frx":76CA8
  227.       Stretch         =   -1  'True
  228.       Top             =   4200
  229.       Width           =   450
  230.    End
  231.    Begin VB.Image KompasWest 
  232.       Height          =   435
  233.       Left            =   3480
  234.       Picture         =   "InGame.frx":7746A
  235.       Top             =   4680
  236.       Visible         =   0   'False
  237.       Width           =   1500
  238.    End
  239.    Begin VB.Image KompasSouth 
  240.       Height          =   435
  241.       Left            =   3480
  242.       Picture         =   "InGame.frx":77B12
  243.       Top             =   4680
  244.       Visible         =   0   'False
  245.       Width           =   1500
  246.    End
  247.    Begin VB.Image KompasNorth 
  248.       Height          =   435
  249.       Left            =   3480
  250.       Picture         =   "InGame.frx":78146
  251.       Top             =   4680
  252.       Width           =   1500
  253.    End
  254.    Begin VB.Image KompasEast 
  255.       Height          =   435
  256.       Left            =   3480
  257.       Picture         =   "InGame.frx":787BA
  258.       Top             =   4680
  259.       Visible         =   0   'False
  260.       Width           =   1500
  261.    End
  262. Attribute VB_Name = "InGame"
  263. Attribute VB_GlobalNameSpace = False
  264. Attribute VB_Creatable = False
  265. Attribute VB_PredeclaredId = True
  266. Attribute VB_Exposed = False
  267. Dim X, Y, i As Integer
  268. Dim ConstPth As String 'Assigned in Form.Load
  269. Const SaveFileName As String = "Save.est" 'Name of the save file
  270. 'InGame 3D pictures
  271.     Const A1 As String = "\Graphics\a1.bmp"
  272.     Const A2 As String = "\Graphics\a2.bmp"
  273.     Const A3 As String = "\Graphics\a3bmp"
  274.     Const A4 As String = "\Graphics\a4.bmp"
  275.     Const A5 As String = "\Graphics\a5.bmp"
  276.     Const A6 As String = "\Graphics\a6.bmp"
  277.     Const A7 As String = "\Graphics\a7.bmp"
  278.     Const A8 As String = "\Graphics\a8.bmp"
  279.     Const A9 As String = "\Graphics\a9.bmp"
  280.     Const A10 As String = "\Graphics\a10.bmp"
  281.     Const A11 As String = "\Graphics\a11.bmp"
  282.     Const A12 As String = "\Graphics\a12.bmp"
  283.     Const A13 As String = "\Graphics\a13.bmp"
  284.     Const A14 As String = "\Graphics\a14.bmp"
  285.     Const A15 As String = "\Graphics\a15.bmp"
  286.     Const A16 As String = "\Graphics\a16.bmp"
  287.     Const A17 As String = "\Graphics\a17.bmp"
  288.     Const A18 As String = "\Graphics\a18.bmp"
  289. Private Sub CAI()
  290. View = LoadPicture()
  291. End Sub
  292. Private Sub ArrowLeft_Click()
  293.  If KompasNorth.Visible = True Then
  294.     KompasWest.Visible = True
  295.     KompasNorth.Visible = False
  296.     'WEST
  297.     If X = 1 And Y = 1 Then
  298.        CAI
  299.        View = LoadPicture(ConstPth + A15)
  300.     ElseIf X = 1 And Y = 2 Then
  301.        CAI
  302.        View = LoadPicture(ConstPth + A15)
  303.     ElseIf X = 1 And Y = 3 Then
  304.        CAI
  305.        View = LoadPicture(ConstPth + A15)
  306.     ElseIf X = 2 And Y = 3 Then
  307.         CAI
  308.         View = LoadPicture(ConstPth + A7)
  309.     ElseIf X = 3 And Y = 3 Then
  310.         CAI
  311.         View = LoadPicture(ConstPth + A8)
  312.     ElseIf X = 4 And Y = 3 Then
  313.          CAI
  314.          View = LoadPicture(ConstPth + A5)
  315.     ElseIf X = 5 And Y = 3 Then
  316.          CAI
  317.          View = LoadPicture(ConstPth + A6)
  318.     ElseIf X = 5 And Y = 4 Then
  319.          CAI
  320.          View = LoadPicture(ConstPth + A15)
  321.     ElseIf X = 5 And Y = 5 Then
  322.        CAI
  323.        View = LoadPicture(ConstPth + A10)
  324.     ElseIf X = 4 And Y = 5 Then
  325.        CAI
  326.        View = LoadPicture(ConstPth + A9)
  327.     End If
  328.       
  329.  ElseIf KompasWest.Visible = True Then
  330.     KompasWest.Visible = False
  331.     KompasSouth.Visible = True
  332.     'SOUTH
  333.     If X = 1 And Y = 1 Then
  334.        CAI
  335.        View = LoadPicture(ConstPth + A2)
  336.     ElseIf X = 1 And Y = 2 Then
  337.        CAI
  338.        View = LoadPicture(ConstPth + A1)
  339.     ElseIf X = 1 And Y = 3 Then
  340.       CAI
  341.       View = LoadPicture(ConstPth + A6)
  342.     ElseIf X = 2 And Y = 3 Then
  343.       CAI
  344.       View = LoadPicture(ConstPth + A15)
  345.     ElseIf X = 3 And Y = 3 Then
  346.       CAI
  347.       View = LoadPicture(ConstPth + A2)
  348.     ElseIf X = 4 And Y = 3 Then
  349.       CAI
  350.       View = LoadPicture(ConstPth + A15)
  351.     ElseIf X = 5 And Y = 3 Then
  352.       CAI
  353.       View = LoadPicture(ConstPth + A15)
  354.     ElseIf X = 5 And Y = 4 Then
  355.       CAI
  356.       View = LoadPicture(ConstPth + A11)
  357.     ElseIf X = 5 And Y = 5 Then
  358.       CAI
  359.       View = LoadPicture(ConstPth + A12)
  360.     ElseIf X = 4 And Y = 5 Then
  361.       CAI
  362.       View = LoadPicture(ConstPth + A15)
  363.     End If
  364.  ElseIf KompasSouth.Visible = True Then
  365.     KompasSouth.Visible = False
  366.     KompasEast.Visible = True
  367.     'EAST
  368.     If X = 1 And Y = 1 Then
  369.        CAI
  370.        View = LoadPicture(ConstPth + A15)
  371.     ElseIf X = 1 And Y = 2 Then
  372.        CAI
  373.        View = LoadPicture(ConstPth + A15)
  374.     ElseIf X = 1 And Y = 3 Then
  375.        CAI
  376.        View = LoadPicture(ConstPth + A5)
  377.      ElseIf X = 2 And Y = 3 Then
  378.         CAI
  379.         View = LoadPicture(ConstPth + A6)
  380.       ElseIf X = 3 And Y = 3 Then
  381.         CAI
  382.         View = LoadPicture(ConstPth + A17)
  383.       ElseIf X = 4 And Y = 3 Then
  384.         CAI
  385.         View = LoadPicture(ConstPth + A16)
  386.       ElseIf X = 5 And Y = 3 Then
  387.        CAI
  388.        View = LoadPicture(ConstPth + A8)
  389.        ElseIf X = 5 And Y = 4 Then
  390.          CAI
  391.          View = LoadPicture(ConstPth + A15)
  392.        ElseIf X = 5 And Y = 5 Then
  393.        CAI
  394.        View = LoadPicture(ConstPth + A15)
  395.        ElseIf X = 4 And Y = 5 Then
  396.        CAI
  397.        View = LoadPicture(ConstPth + A9)
  398.        End If
  399.        
  400.  Else
  401.     KompasEast.Visible = False
  402.     KompasNorth.Visible = True
  403.     'NORTH
  404.     If X = 1 And Y = 1 Then
  405.        CAI
  406.        View = LoadPicture(ConstPth + A10)
  407.    ElseIf X = 1 And Y = 2 Then
  408.        CAI
  409.        View = LoadPicture(ConstPth + A9)
  410.     ElseIf X = 1 And Y = 3 Then
  411.        CAI
  412.        View = LoadPicture(ConstPth + A15)
  413.     ElseIf X = 2 And Y = 3 Then
  414.         CAI
  415.         View = LoadPicture(ConstPth + A15)
  416.     ElseIf X = 3 And Y = 3 Then
  417.         CAI
  418.         View = LoadPicture(ConstPth + A2)
  419.      ElseIf X = 4 And Y = 3 Then
  420.          CAI
  421.          View = LoadPicture(ConstPth + A15)
  422.       ElseIf X = 5 And Y = 3 Then
  423.          CAI
  424.          View = LoadPicture(ConstPth + A8)
  425.        ElseIf X = 5 And Y = 4 Then
  426.          CAI
  427.          View = LoadPicture(ConstPth + A7)
  428.        ElseIf X = 5 And Y = 5 Then
  429.         CAI
  430.         View = LoadPicture(ConstPth + A2)
  431.        ElseIf X = 4 And Y = 5 Then
  432.        CAI
  433.        View = LoadPicture(ConstPth + A15)
  434.        End If
  435.    End If
  436. End Sub
  437. Private Sub ArrowRight_Click()
  438. If KompasNorth.Visible = True Then
  439.     KompasEast.Visible = True
  440.     KompasNorth.Visible = False
  441.      'EAST
  442.       If X = 1 And Y = 1 Then
  443.         CAI
  444.         View = LoadPicture(ConstPth + A15)
  445.       ElseIf X = 1 And Y = 2 Then
  446.         CAI
  447.         View = LoadPicture(ConstPth + A15)
  448.       ElseIf X = 1 And Y = 3 Then
  449.          CAI
  450.          View = LoadPicture(ConstPth + A5)
  451.       ElseIf X = 2 And Y = 3 Then
  452.         CAI
  453.         View = LoadPicture(ConstPth + A6)
  454.      ElseIf X = 3 And Y = 3 Then
  455.         CAI
  456.         View = LoadPicture(ConstPth + A17)
  457.      ElseIf X = 4 And Y = 3 Then
  458.         CAI
  459.         View = LoadPicture(ConstPth + A16)
  460.      ElseIf X = 5 And Y = 3 Then
  461.        CAI
  462.        View = LoadPicture(ConstPth + A8)
  463.      ElseIf X = 5 And Y = 4 Then
  464.        CAI
  465.        View = LoadPicture(ConstPth + A15)
  466.     ElseIf X = 5 And Y = 5 Then
  467.        CAI
  468.        View = LoadPicture(ConstPth + A15)
  469.     ElseIf X = 4 And Y = 5 Then
  470.        CAI
  471.        View = LoadPicture(ConstPth + A9)
  472.     End If
  473.        
  474.  ElseIf KompasEast.Visible = True Then
  475.     KompasEast.Visible = False
  476.     KompasSouth.Visible = True
  477.      'SOUTH
  478.       If X = 1 And Y = 1 Then
  479.         CAI
  480.         View = LoadPicture(ConstPth + A2)
  481.        ElseIf X = 1 And Y = 2 Then
  482.         CAI
  483.         View = LoadPicture(ConstPth + A1)
  484.        ElseIf X = 1 And Y = 3 Then
  485.          CAI
  486.          View = LoadPicture(ConstPth + A6)
  487.        ElseIf X = 2 And Y = 3 Then
  488.         CAI
  489.         View = LoadPicture(ConstPth + A15)
  490.        ElseIf X = 3 And Y = 3 Then
  491.         CAI
  492.         View = LoadPicture(ConstPth + A2)
  493.        ElseIf X = 4 And Y = 3 Then
  494.          CAI
  495.          View = LoadPicture(ConstPth + A15)
  496.        ElseIf X = 5 And Y = 3 Then
  497.          CAI
  498.          View = LoadPicture(ConstPth + A15)
  499.        ElseIf X = 5 And Y = 4 Then
  500.          CAI
  501.          View = LoadPicture(ConstPth + A11)
  502.        ElseIf X = 5 And Y = 5 Then
  503.        CAI
  504.        View = LoadPicture(ConstPth + A12)
  505.        ElseIf X = 4 And Y = 5 Then
  506.        CAI
  507.        View = LoadPicture(ConstPth + A15)
  508.        End If
  509.        
  510.  ElseIf KompasSouth.Visible = True Then
  511.     KompasSouth.Visible = False
  512.     KompasWest.Visible = True
  513.      'WEST
  514.       If X = 1 And Y = 1 Then
  515.         CAI
  516.         View = LoadPicture(ConstPth + A15)
  517.      ElseIf X = 1 And Y = 2 Then
  518.         CAI
  519.         View = LoadPicture(ConstPth + A15)
  520.      ElseIf X = 1 And Y = 3 Then
  521.        CAI
  522.        View = LoadPicture(ConstPth + A15)
  523.       ElseIf X = 2 And Y = 3 Then
  524.         CAI
  525.         View = LoadPicture(ConstPth + A7)
  526.       ElseIf X = 3 And Y = 3 Then
  527.         CAI
  528.         View = LoadPicture(ConstPth + A8)
  529.        ElseIf X = 4 And Y = 3 Then
  530.          CAI
  531.          View = LoadPicture(ConstPth + A5)
  532.        ElseIf X = 5 And Y = 3 Then
  533.          CAI
  534.          View = LoadPicture(ConstPth + A6)
  535.        ElseIf X = 5 And Y = 4 Then
  536.          CAI
  537.          View = LoadPicture(ConstPth + A15)
  538.        ElseIf X = 5 And Y = 5 Then
  539.        CAI
  540.        View = LoadPicture(ConstPth + A6)
  541.        ElseIf X = 4 And Y = 5 Then
  542.        CAI
  543.        View = LoadPicture(ConstPth + A9)
  544.        End If
  545.  Else
  546.     KompasWest.Visible = False
  547.     KompasNorth.Visible = True
  548.      'NORTH
  549.       If X = 1 And Y = 1 Then
  550.         CAI
  551.         View = LoadPicture(ConstPth + A10)
  552.       ElseIf X = 1 And Y = 2 Then
  553.         CAI
  554.         View = LoadPicture(ConstPth + A9)
  555.       ElseIf X = 1 And Y = 3 Then
  556.         CAI
  557.         View = LoadPicture(ConstPth + A15)
  558.        ElseIf X = 2 And Y = 3 Then
  559.         CAI
  560.         View = LoadPicture(ConstPth + A15)
  561.       ElseIf X = 3 And Y = 3 Then
  562.         CAI
  563.         View = LoadPicture(ConstPth + A2)
  564.       ElseIf X = 4 And Y = 3 Then
  565.          CAI
  566.          View = LoadPicture(ConstPth + A15)
  567.        ElseIf X = 5 And Y = 3 Then
  568.          CAI
  569.          View = LoadPicture(ConstPth + A8)
  570.        ElseIf X = 5 And Y = 4 Then
  571.          CAI
  572.          View = LoadPicture(ConstPth + A7)
  573.        ElseIf X = 5 And Y = 5 Then
  574.        CAI
  575.        View = LoadPicture(ConstPth + A2)
  576.        ElseIf X = 4 And Y = 5 Then
  577.        CAI
  578.        View = LoadPicture(ConstPth + A15)
  579.        End If
  580.  End If
  581. End Sub
  582. Private Sub ArrowUp_Click()
  583. If KompasNorth.Visible = True Then 'NORTH
  584.   If X = 1 And Y = 1 Then
  585.      Y = Y + 1
  586.      CAI
  587.      View = LoadPicture(ConstPth + A9)
  588.  ElseIf X = 1 And Y = 2 Then
  589.     Y = Y + 1
  590.     CAI
  591.       View = LoadPicture(ConstPth + A15)
  592.   ElseIf X = 5 And Y = 3 Then
  593.     Y = Y + 1
  594.     CAI
  595.       View = LoadPicture(ConstPth + A7)
  596.   ElseIf X = 5 And Y = 4 Then
  597.     Y = Y + 1
  598.     CAI
  599.     View = LoadPicture(ConstPth + A2)
  600.  End If
  601. ElseIf KompasWest.Visible = True Then 'WEST
  602.    If X = 2 And Y = 3 Then
  603.        X = X - 1
  604.        CAI
  605.        View = LoadPicture(ConstPth + A15)
  606.    ElseIf X = 3 And Y = 3 Then
  607.       X = X - 1
  608.       CAI
  609.       View = LoadPicture(ConstPth + A7)
  610.     ElseIf X = 4 And Y = 3 Then
  611.       X = X - 1
  612.       CAI
  613.       View = LoadPicture(ConstPth + A8)
  614.     ElseIf X = 5 And Y = 3 Then
  615.       X = X - 1
  616.       CAI
  617.       View = LoadPicture(ConstPth + A5)
  618.     ElseIf X = 5 And Y = 5 Then
  619.       X = X - 1
  620.       CAI
  621.       View = LoadPicture(ConstPth + A9)
  622.     ElseIf X = 4 And Y = 5 Then
  623.       X = X - 1
  624.       CAI
  625.       View = LoadPicture(ConstPth + A2)
  626.     End If
  627. ElseIf KompasSouth.Visible = True Then 'SOUTH
  628.     If X = 1 And Y = 2 Then
  629.        Y = Y - 1
  630.        CAI
  631.        View = LoadPicture(ConstPth + A2)
  632.     ElseIf X = 1 And Y = 3 Then
  633.        Y = Y - 1
  634.        CAI
  635.        View = LoadPicture(ConstPth + A1)
  636.     ElseIf X = 5 And Y = 4 Then
  637.       Y = Y - 1
  638.       CAI
  639.       View = LoadPicture(ConstPth + A15)
  640.     ElseIf X = 5 And Y = 5 Then
  641.       Y = Y - 1
  642.       CAI
  643.       View = LoadPicture(ConstPth + A11)
  644.     End If
  645. ElseIf KompasEast.Visible = True Then 'EAST
  646.      If X = 1 And Y = 3 Then
  647.      X = X + 1
  648.      CAI
  649.      View = LoadPicture(ConstPth + A6)
  650.      ElseIf X = 2 And Y = 3 Then
  651.      X = X + 1
  652.      CAI
  653.      View = LoadPicture(ConstPth + A17)
  654.     ElseIf X = 3 And Y = 3 Then
  655.      X = X + 1
  656.      CAI
  657.      View = LoadPicture(ConstPth + A16)
  658.     ElseIf X = 4 And Y = 3 Then
  659.      X = X + 1
  660.      CAI
  661.      View = LoadPicture(ConstPth + A8)
  662.     ElseIf X = 5 And Y = 3 Then
  663.      X = X + 1
  664.      CAI
  665.      View = LoadPicture(ConstPth + A7)
  666.      ElseIf X = 4 And Y = 5 Then
  667.       X = X + 1
  668.       CAI
  669.       View = LoadPicture(ConstPth + A15)
  670.      End If
  671.   End If
  672. End Sub
  673. Private Sub Command2_Click()
  674. Open SaveDirAndFile For Output As #1
  675. Print #1, X
  676. Print #1, Y
  677. Close #1
  678. Command3.Enabled = True
  679. End Sub
  680. Private Sub Command3_Click()
  681.  Open SaveDirAndFile For Input As #1
  682.  Input #1, X
  683.  Input #1, Y
  684.  Close #1
  685.  End Sub
  686. Private Sub Command4_Click()
  687. If Frame1.Visible = True Then
  688. Frame1.Visible = False
  689. Frame1.Visible = True
  690. End If
  691. End Sub
  692. Private Sub Command5_Click()
  693. Menu.Visible = True
  694. Unload InGame
  695. End Sub
  696. Private Sub Form_Load()
  697. 'var assignements
  698.     ConstPth = App.Path
  699. OLEform.Domotozje.Action = 9
  700. OLEform.Sewers1.DoVerb
  701. X = 1
  702. Y = 1
  703. View = LoadPicture(ConstPth + A10)
  704.     Debug.Print ConstPth + A10
  705. List1.AddItem "Hi Adventurer!"
  706. List1.AddItem "Welcome to the Estenwood playable demo!"
  707. List1.AddItem "In this demo, you'll find only a part of the huge world of Estenwood."
  708. List1.AddItem "You start playing in the sewers of Skalen under the great city of "
  709. List1.AddItem "Skalen."
  710. List1.AddItem "I did as much of the game as I could in the little time that I had."
  711. List1.AddItem "I hope you'll enjoy it, as much as I enjoyed working on it!"
  712. List1.AddItem "Nearly all the graphics are missing(not drew yet!)"
  713. List1.AddItem "I have another problem with the graphics;the well drewn ones "
  714. List1.AddItem "are disfigured"
  715. List1.AddItem "To move click on the arrows near the compass and to exit click"
  716. List1.AddItem "on the red button in the upper-left corner of this screen."
  717. List1.AddItem "Good adventuring!"
  718. End Sub
  719. Private Sub Option1_Click()
  720. OLEform.Sewers2.DoVerb
  721. Timer1.Enabled = True
  722. End Sub
  723. Private Sub Option2_Click()
  724. OLEform.Sewers2.Close
  725. Timer1.Enabled = False
  726. End Sub
  727. Private Sub RedPoint_Click()
  728.  If Command1.Visible = True Then
  729.     Command1.Visible = False
  730.      Frame1.Visible = False
  731.  ElseIf Command1.Visible = False Then
  732.     Command1.Visible = True
  733.      Frame1.Visible = False
  734.  End If
  735.   If Command2.Visible = True Then
  736.     Command2.Visible = False
  737.  ElseIf Command2.Visible = False Then
  738.     Command2.Visible = True
  739.  End If
  740.  If Command3.Visible = True Then
  741.     Command3.Visible = False
  742.  ElseIf Command3.Visible = False Then
  743.     Command3.Visible = True
  744.  End If
  745.  If Command4.Visible = True Then
  746.     Command4.Visible = False
  747.  ElseIf Command4.Visible = False Then
  748.     Command4.Visible = True
  749.  End If
  750.  If Command5.Visible = True Then
  751.     Command5.Visible = False
  752.  ElseIf Command5.Visible = False Then
  753.     Command5.Visible = True
  754.  End If
  755. End Sub
  756. Private Sub Timer1_Timer()
  757. OLEform.Sewers2.DoVerb
  758. End Sub
  759.